home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / examples / fshapes.F < prev    next >
Text File  |  1991-06-03  |  4KB  |  163 lines
  1.     program fshapes
  2.  
  3. #ifdef SGI
  4. #include "fgl.h"
  5. #include "fdevice.h"
  6. #else
  7. #include "fvogl.h"
  8. #include "fvodevice.h"
  9. #endif
  10.  
  11. c
  12. c This program shows some of the simple primitives.
  13. c
  14.     integer edgel
  15.     integer *2 val, vminx, vmaxx, vminy, vmaxy
  16. c
  17. c open a window (or the screen on some devices)
  18. c
  19.     call prefsi(512, 600)
  20.     call winope('shapes', 6)
  21.     call unqdev(INPUTC)
  22.  
  23. c 
  24. c the two lines below clear the screen to white if we have
  25. c colours, on a monochrome device color is ignored so the
  26. c screen will be cleared to its background color, normally black.
  27. c
  28.     call color(BLACK)
  29.     call clear()
  30.  
  31. c
  32. c set the screen to be 2.0 units wide and 2.0 units wide, with
  33. c the drawable coordinates going from -1.0 to 1.0.
  34. c
  35.     call ortho2(-1.0, 1.0, -1.0, 1.0)
  36.  
  37.     call color(MAGENT)
  38.  
  39. c
  40. c okay, so we want to draw in the range -1 to 1, but we
  41. c only want to draw in the top lefthand corner of the
  42. c screen. The call to viewpo allows us to do this. As
  43. c viewpo always takes screen coordinates, we need to
  44. c call getviewpo to found out how big our screen is
  45. c at the moment. We use the values returned from getviewpo
  46. c calculate the positions for our new viewpo. We note
  47. c that on an Iris (0,0) is the bottom left pixel.
  48. c
  49.     call getvie(vminx, vmaxx, vminy, vmaxy)
  50.  
  51.     maxx = vmaxx
  52.     minx = vminx
  53.     maxy = vmaxy
  54.     miny = vminy
  55.  
  56.     call viewpo(minx, (maxx - minx) / 2, (maxy - miny) / 2, maxy)
  57.  
  58. c
  59. c  write out a heading 
  60. c
  61.     call cmov2(-0.9, -0.5)
  62.     call charst('rect', 4)
  63.  
  64. c
  65. c draw a rectangle around the points (-0.2, -0.2), (-0.2, 0.2),
  66. c (0.3, 0.2), and (0.3, -0.2).
  67. c
  68.     call rect(-0.2, -0.2, 0.3, 0.2)
  69.  
  70.     call color(BLUE)
  71.  
  72. c
  73. c now we want to draw in the top right corner of the screen,
  74. c and we want to draw a circular circle so we must make sure
  75. c our viewpo is square (if it isn't we'll get an ellipse),
  76. c so we calculate the shortest edge and set up a viewpo which
  77. c is in the top right region of the screen, but doesn't necessarilly
  78. c occupy all the top right corner.
  79. c
  80. c find smallest edge 
  81. c
  82.     if (maxx - minx .gt. maxy - miny) then
  83.         edgel = (maxy - miny) / 2
  84.     else 
  85.         edgel = (maxx - minx) / 2
  86.     end if
  87.  
  88. c
  89. c create a square viewpo - otherwise the circle will look
  90. c like an ellipse.
  91. c
  92.  
  93.     call viewpo((maxx - minx) / 2, (maxx - minx) / 2 + edgel,
  94.      +           (maxy - miny) / 2, (maxy - miny) / 2 + edgel)
  95.  
  96.     call cmov2(-0.9, -0.5)
  97.     call charst('circle', 6)
  98.  
  99. c
  100. c draw a circle of radius 0.4 around the point (0.0, 0.0)
  101. c
  102.     call circ(0.0, 0.0, 0.4)
  103.  
  104.     call color(GREEN)
  105.  
  106. c
  107. c bottom left hand corner.
  108. c
  109.     call viewpo(minx, (maxx - minx) / 2,
  110.      +                miny, (maxy - miny) / 2)
  111.  
  112.     call cmov2(-0.9, -0.5)
  113.     call charst('ellipse', 7)
  114.  
  115. c
  116. c To draw an ellipse we change the aspect ratio so it is no longer
  117. c 1 and call circ. In this case we use ortho2 to make the square
  118. c viewpo appear to be higher than it is wide. Alternatively you
  119. c could use arc to construct one.
  120. c
  121. c The call to pushmatrix saves the current viewing transformation.
  122. c After the ortho2 has been done, we restore the current viewing
  123. c transformation with a call to popmatrix. (Otherwise everything
  124. c after the call to ortho would come out looking squashed as the
  125. c world aspect ratio is no longer 1).
  126. c
  127.     call pushma
  128.         call ortho2(-1.0, 1.0, -1.0, 2.0)
  129.         call circ(0.0, 0.5, 0.4)
  130.     call popmat
  131.  
  132.     call color(RED)
  133.  
  134. c
  135. c bottom right hand corner
  136. c
  137.     call viewpo((maxx - minx) / 2, maxx,
  138.      +                 miny, (maxy - miny) / 2)
  139.  
  140.     call cmov2(-0.9, -0.5)
  141.     call charst('arc', 3)
  142.  
  143. c
  144. c draw an arc centered at (0.0, 0.0), radius of 0.4. 0.0 is the start
  145. c angle and 90.0 is the end angle of the arc being drawn. So this
  146. c draws a quarter circle - unless our viewpo isn't square.
  147. c
  148.     call arc(0.0, 0.0, 0.4, 0, 900)
  149.  
  150. c
  151. c we want to stop after a keyboard event
  152. c
  153.     call qdevic(KEYBD)
  154.  
  155. c
  156. c wait for the event
  157. c
  158.     idum = qread(val)
  159.  
  160.     call gexit
  161.  
  162.     end
  163.